EvalTyp EvalCooc (ImSize, CoSize, CoMa)
int  ImSize, CoSize;
int  ** CoMa;
{
   int     r,c;
   EvalTyp Eval;

   Eval.Energy = Eval.Contrast = Eval.Entropy = Eval.Homogen = (float)0;

   for (r=0; r<CoSize; r++)
      for (c=0; c<CoSize; c++)
         Eval.Energy += (float) CoMa[r][c] * CoMa[r][c];

   for (r=0; r<CoSize; r++)
      for (c=0; c<CoSize; c++)
         Eval.Contrast += (float) (r-c) * (r-c) * CoMa[r][c];

   for (r=0; r<CoSize; r++)
      for (c=0; c<CoSize; c++)
         if (CoMa[r][c])
            Eval.Entropy += (float) CoMa[r][c] * log((double)CoMa[r][c]);

   for (r=0; r<CoSize; r++)
      for (c=0; c<CoSize; c++)
         if (CoMa[r][c])
            Eval.Homogen += (float) CoMa[r][c] / (1 + abs(r-c));

   return (Eval);
}
